home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / ETC / STARTUP.PS < prev    next >
Encoding:
Text File  |  1998-07-18  |  847 b   |  38 lines
  1. %
  2. %  Environment dependant variables
  3. %
  4.  
  5. /@sys_path (system.ps) def
  6.  
  7. %
  8. %  Initialize the PostScript machinery
  9. %
  10.  
  11. %(Loading PSI...) print
  12. @sys_path run
  13. %(Done\n) print
  14.  
  15. /printpath { /_str 16 string def
  16.    {(Move: )print exch _str cvs print( )print _str cvs print(\n)print}
  17.    {(Draw: )print exch _str cvs print( )print _str cvs print(\n)print}
  18.    {(Curv: )print 6 -2 roll exch _str cvs print( )print _str cvs print
  19.       ( )print 4 -2 roll exch _str cvs print( )print _str cvs print
  20.       ( )print exch _str cvs print( )print _str cvs print(\n)print}
  21.    {(Done:\n)print} pathforall } @bd
  22.  
  23. %
  24. %  Enter the normal flow
  25. %
  26.  
  27. /@inp (%stdin) (r) file def
  28.  
  29. /@pmt { /@buf 256 string def
  30.     { prompt @inp @buf readline pop cvx exec } loop
  31.       } def
  32.  
  33. /@execut false def
  34. /executive { /@execut true def stop
  35.        } @bd
  36.  
  37. %start
  38.